home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ALLERLEI / GOBJ_112 / SOURCE / TPXTEST / TPXTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-27  |  1.6 KB  |  86 lines
  1. program TPXTest;
  2.  
  3. uses
  4.  
  5.     OTypes,OWindows,OValidat;
  6.  
  7. const
  8.  
  9.     {$I tpxtest.i}
  10.  
  11. type
  12.  
  13.     TTPXApplication = object(TApplication)
  14.         procedure InitInstance; virtual;
  15.         procedure InitMainWindow; virtual;
  16.     end;
  17.  
  18.     PTPXDialog = ^TTPXDialog;
  19.     TTPXDialog = object(TDialog)
  20.         function OK: boolean; virtual;
  21.         function Cancel: boolean; virtual;
  22.     end;
  23.  
  24. var
  25.  
  26.     TPXApplication: TTPXApplication;
  27.  
  28.  
  29. procedure TPXResource; external; {$L tpxtest.o}
  30.  
  31.  
  32. procedure TTPXApplication.InitInstance;
  33.  
  34.     begin
  35.         InitResource(@TPXResource,nil);
  36.         inherited InitInstance
  37.     end;
  38.  
  39.  
  40. procedure TTPXApplication.InitMainWindow;
  41.     var p  : PTPXDialog;
  42.         pe : PEdit;
  43.         ppx: PPXPictureValidator;
  44.  
  45.     begin
  46.         new(p,Init(nil,'ObjectGEM TPXTest',TPXDIAL));
  47.         if (MainWindow=nil) or (ChkError<em_OK) then Status:=em_InvalidMainWindow
  48.         else
  49.             begin
  50.                 new(PButton,Init(p,TPXOK,id_OK,true,''));
  51.                 new(PButton,Init(p,TPXABBR,id_Cancel,true,''));
  52.                 pe:=new(PEdit,Init(p,TPXEDIT,39,''));
  53.                 pe^.SetText('');
  54.                 ppx:=new(PPXPictureValidator,Init('(*#;,##),*#;,##,{20,40,60,75,100}W,*{&[*?][@][ ]}',true));
  55.                 ppx^.Options:=ppx^.Options or voNotEmpty;
  56.                 pe^.SetValidator(ppx);
  57.                 if AppFlag then p^.MakeWindow
  58.             end
  59.     end;
  60.  
  61.  
  62. function TTPXDialog.OK: boolean;
  63.     var valid: boolean;
  64.  
  65.     begin
  66.         valid:=inherited OK;
  67.         if valid then Application^.Quit;
  68.         OK:=valid
  69.     end;
  70.  
  71.  
  72. function TTPXDialog.Cancel: boolean;
  73.     var valid: boolean;
  74.  
  75.     begin
  76.         valid:=inherited Cancel;
  77.         if valid then Application^.Quit;
  78.         Cancel:=valid
  79.     end;
  80.  
  81.  
  82. begin
  83.   TPXApplication.Init('TPXT','TPXTest');
  84.   TPXApplication.Run;
  85.   TPXApplication.Done
  86. end.